www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminPicsLunBo\admin_newsAdd.asp

    



<%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>





<LINK href="../css.css" type=text/css rel=stylesheet>
<%

dir_set="../../"


%>


<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../../inc/ajaxLIB.asp-->

<!--#include file=../inc/checkadmin2.asp-->

<!--#include file=../../inc/functionFiless.asp-->



<!--#include file="inc_ziduan.asp"-->










<%

on error resume next
set rsa=server.CreateObject("adodb.recordset")
rsa.open "select count(*) from "&aaaa&"",conn,1,1
maxxxxx=20

if clng(rsa(0))>=maxxxxx then



Response.Write("<script>alert(""最多能添加"&maxxxxx&"张图片，请先删除几张，再添加"");history.go(-1);</script>")
%>
<br><br><br><br><br>
最多能添加20张图片，请先删除几张，再添加

<%

Response.end
end if



%>





<form method="POST" name="myform" action="admin_newsAdd_chk.asp" target="_self">

<table width="690" border="0" align="center" cellpadding="5" cellspacing="1" class="tableBorder">
  <tr align="center">
    <th height="25" colspan="2">添加图片</th>
  </tr>
    <tr bgcolor="#D6DFF7">
    <td width="150" height="30" align="right" bgcolor="#D6DFF7">图片名称：</td>
    <td width="640">
      <input name="title" type="text" id="title"></td>
  </tr>

  <tr bgcolor="#D6DFF7">
    <td height="30" align="right">图片链接url：</td>
    <td>
<input name="uuuurl" type="text" id="uuuurl" value="http://" size=40></td></tr>









<tr>
    <td  height="30" align="center" bgcolor="#ffffff"><b>上传图片：</b></td>
          <td  align="left" bgcolor="#EDF8FE" colspan="3">

<img src="" width=0 height=0 border=0 id="picb">

<input type=hidden name=pica id=pica value="">


<iframe name="image" frameborder="0" width='100%' height="69" scrolling="no" src="../D_upfile_nth.asp"></iframe></td>
 </tr>


<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from "&aaaa&" order by clng(orders) desc",conn,1,1
if not rs.eof then

cccc=rs("orders")+1
else
cccc=1
end if

%>














  <tr bgcolor="#D6DFF7">
    <td height="30" align="right">&nbsp;</td>
    <td>&nbsp;&nbsp;
    <input type="submit" name="Submit" value=" 添  加 "></td>
  </tr>
</table>
</form>